home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t5.d64 / flag boot.c (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  427b  |  19 lines
  1. 1 REM   *************************
  2. 2 REM   *  WORLD OF COMMODORE   *
  3. 3 REM   *        FLAGS          *
  4. 4 REM   * DESIGNED BY DAVE GZIK *
  5. 5 REM   *   COMMODORE CANADA    *
  6. 6 REM   *       OCT/83          *
  7. 7 REM   *************************
  8. 8 REM
  9. 9 REM   (FLAGS)
  10. 10 IFF=0THENF=1:LOAD"SYS 40784.D",8,1
  11. 20 IFF=1THENF=2:LOAD"WORLD FLAGS.D",8,1
  12. 25 POKE788,52:POKE792,193
  13. 30 POKE53265,59
  14. 40 POKE53272,25
  15. 50 POKE53270,216
  16. 55 POKE53280,2
  17. 60 SYS 40784
  18. 70 GOTO70
  19.